home *** CD-ROM | disk | FTP | other *** search
/ Star Festival... a Return to Japan / Star Festival... a Return to Japan.iso / pc / STARFESTIVAL / 08r.dir / 00001.ls next >
Encoding:
Text File  |  1999-04-09  |  2.7 KB  |  106 lines
  1. on startMovie
  2.   global gCursorReady, gKnobState, gMagCursor, gsearchOn, qtChan, gmbtoggle, gKnobSprite, gSendMovie, gCurrentLocation
  3.   puppetSprite(44, 1)
  4.   gCursorReady = 1
  5.   gMagCursor = "magCursor"
  6.   gCurrentLocation = 8
  7.   puppetSound(0)
  8.   gmbtoggle = 1
  9.   gSendMovie = "08r"
  10.   qtChan = 35
  11.   sprite(qtChan).volume = 256
  12.   initGlobals()
  13.   gKnobSprite = 17
  14.   setUpKnob()
  15.   set the mouseDownScript to EMPTY
  16.   set the mouseUpScript to EMPTY
  17.   if gsearchOn = 1 then
  18.     sprite(6).visible = 1
  19.   else
  20.     sprite(6).visible = 0
  21.   end if
  22. end
  23.  
  24. on toggleswitch theSound
  25.   global gmbtoggle
  26.   channel = the clickOn
  27.   puppetSprite(channel, 1)
  28.   if theSound <> "none" then
  29.     puppetSound(theSound)
  30.   end if
  31.   theCast = cast(the castNum of sprite channel).name
  32.   if gmbtoggle = 1 then
  33.     set the castNum of sprite channel to the number of member (theCast & "B")
  34.     updateStage()
  35.     puppetSound(0)
  36.     repeat while the stillDown
  37.     end repeat
  38.     set the castNum of sprite channel to the number of member (theCast & "C")
  39.     updateStage()
  40.   else
  41.     set the castNum of sprite channel to the number of member (theCast & "D")
  42.     updateStage()
  43.     puppetSound(0)
  44.     repeat while the stillDown
  45.     end repeat
  46.     set the castNum of sprite channel to the number of member "book"
  47.     updateStage()
  48.   end if
  49.   if gmbtoggle = 1 then
  50.     gmbtoggle = 2
  51.   else
  52.     gmbtoggle = 1
  53.   end if
  54. end
  55.  
  56. on mbspritereset
  57.   global gmbtoggle
  58.   gmbtoggle = 1
  59.   puppetSprite(28, 0)
  60. end
  61.  
  62. on idle
  63.   global gCursorReady, gStart8Movie
  64.   if gCursorReady = 1 then
  65.     cursor(200)
  66.     checkCursors()
  67.     set the locH of sprite 44 to the mouseH
  68.     set the locV of sprite 44 to the mouseV
  69.     updateStage()
  70.     if the castNum of sprite 36 and (sprite(36).movieRate = 0) then
  71.       sprite(36).movieRate = 1
  72.     end if
  73.   end if
  74. end
  75.  
  76. on checkCursors
  77.   global gMagCursor
  78.   set the castNum of sprite 44 to the number of member "curs1"
  79.   if the castNum of sprite 8 and rollOver(8) then
  80.     set the castNum of sprite 44 to the number of member "hotCursor"
  81.   end if
  82.   repeat with i = 9 to 12
  83.     if rollOver(i) then
  84.       set the castNum of sprite 44 to the number of member "hotCursor"
  85.     end if
  86.   end repeat
  87.   repeat with i = 14 to 21
  88.     if the castNum of sprite i and rollOver(i) then
  89.       set the castNum of sprite 44 to the number of member "hotCursor"
  90.     end if
  91.   end repeat
  92.   repeat with i = 24 to 28
  93.     if the castNum of sprite i and rollOver(i) then
  94.       set the castNum of sprite 44 to the number of member "hotCursor"
  95.     end if
  96.   end repeat
  97.   if the castNum of sprite 39 and rollOver(39) then
  98.     set the castNum of sprite 44 to the number of member "hotCursor"
  99.   end if
  100.   repeat with i = 40 to 42
  101.     if rollOver(i) then
  102.       set the castNum of sprite 44 to the number of member "hotCursor"
  103.     end if
  104.   end repeat
  105. end
  106.